package X;
use Flap qw/-s/;

$x = 1;

1;
